home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES7.EXE / lha / SUMMARY.PGM < prev    next >
Text File  |  1991-07-15  |  806b  |  44 lines
  1. cls
  2. echo
  3. echo Summary Line List.
  4. echo
  5. ?Press the Enter key to continue, type QUIT to abort. ?
  6.  
  7. set criteria=off
  8. set statistics=off
  9.  
  10. read \surv\reports
  11.  
  12. define begin number global
  13. define end   number global
  14.  
  15. cls
  16. echo
  17. echo
  18. route ?SCREEN, PRINTER, or disk file: ?
  19.  
  20.  
  21. echo
  22. begin =   ?Enter Beginning week number: ?
  23. end   =   ?         ending week number: ?
  24.  
  25. header 1 "\c W e e k l y   S u m m a r y"
  26. header 2 "\cWeek @begin - @end"
  27. header 3 " "
  28. header 4 "\c@systemdate"
  29. header 5 " "
  30.  
  31. select reportweek >= begin and reportweek <= end
  32.  
  33. freq disease
  34. tables disease reportweek
  35. newpage
  36. sort disease name
  37. set breakcmd=type "\n\n"
  38. break disease
  39. list name disease age sex city county reportweek
  40. echo
  41. ?Summary report complete.  Press <Enter> to return to menu. ?
  42. newpage
  43. quit
  44.